-- $LastChangedDate: 2007-04-23 23:09:17 +0200 (Mon, 23 Apr 2007) $
-- $LastChangedRevision: 46 $
-- $LastChangedBy: david $

with AUnit.Test_Suites; use AUnit.Test_Suites;

--  List of tests and suites to compose:
with test_list;
function Gym_Suite return Access_Test_Suite is
   Result : Access_Test_Suite := new Test_Suite;
begin
   --  You may add multiple tests or suites here:
   Add_Test (Result, new test_list.Test_Case);
   return Result;
end Gym_Suite;


